home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 18 (1990)(MegaDisc Digital Publishing)(AU)[WB].zip / MegaDisc 18 (1990)(MegaDisc Digital Publishing)(AU)[WB].adf / Programs / Form < prev    next >
Text File  |  1990-08-09  |  477b  |  21 lines
  1. .k drive,name
  2.  
  3. If <drive> EQ "-?"
  4.    Echo "*e[32mForm*e[0m V1.0. © 1990 Randall Crook.*N"
  5.    Echo "Usage: Form [-?|drive] [name]*N"
  6.    Skip end
  7. Else
  8. If <drive> EQ ""
  9.    Run sys:system/format >CON:0/0/640/25/Format drive df1: name Empty NOICONS
  10.    Skip end
  11. Else
  12. If <name> EQ ""
  13.    Run sys:system/format >CON:0/0/640/25/Format drive <drive> name Empty NOICONS
  14.    Skip end
  15. Else
  16.    Run sys:system/format >CON:0/0/640/25/Format drive <drive> name <name> NOICONS
  17. Lab end
  18. Endif
  19. Quit
  20.  
  21.